//
// File: xdotc.cpp
//
// MATLAB Coder version            : 5.1
// C/C++ source code generated on  : 21-Feb-2021 21:16:52
//

// Include Files
#include "xdotc.h"
#include "rt_nonfinite.h"

// Function Definitions
//
// Arguments    : int n
//                const double x[9]
//                int ix0
//                const double y[9]
//                int iy0
// Return Type  : double
//
namespace coder
{
  namespace internal
  {
    namespace blas
    {
      double xdotc(int n, const double x[9], int ix0, const double y[9], int iy0)
      {
        double d;
        int ix;
        int iy;
        ix = ix0;
        iy = iy0;
        d = 0.0;
        for (int k = 0; k < n; k++) {
          d += x[ix - 1] * y[iy - 1];
          ix++;
          iy++;
        }

        return d;
      }
    }
  }
}

//
// File trailer for xdotc.cpp
//
// [EOF]
//
